home *** CD-ROM | disk | FTP | other *** search
/ Chop Suey / Chop Suey (1995)(Magnet Interactive Studios).iso / common / ping.dir / 00048_SwapCat.ls < prev    next >
Encoding:
Text File  |  1995-06-16  |  501 b   |  23 lines
  1. on SwapCat
  2.   if not soundBusy(4) then
  3.     sound playFile 4, "@:sound:CATWINDO.AIF"
  4.   end if
  5.   set currentcast to the castNum of sprite 12
  6.   puppetSprite(12, 1)
  7.   if currentcast = 106 then
  8.     repeat with i = 106 to 109
  9.       FlushEm()
  10.       set the castNum of sprite 12 to i
  11.       PatDelay(0.125)
  12.       updateStage()
  13.     end repeat
  14.   else
  15.     repeat with i = 109 down to 106
  16.       FlushEm()
  17.       set the castNum of sprite 12 to i
  18.       PatDelay(0.125)
  19.       updateStage()
  20.     end repeat
  21.   end if
  22. end
  23.